home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh21a.d64 / listing 22 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  33 lines
  1. 10 REM ***** BLTUC - TESTPROGRAMM *****
  2. 20 PRINTCHR$(147)
  3. 30 POKE53280,0:POKE53281,5:POKE646,1
  4. 35 REM +++ FARBRAM U. SCHIRM BELEGEN +++
  5. 40 FOR I = 0 TO 79:POKE55296+I,1:NEXTI
  6. 50 FOR I = 1 TO 39:POKE1024+I,I:NEXTI
  7. 52 REM +++ ML-PRG.PARAMETERUEBERGABE +++
  8. 54 FOR I=49152TO49158:READA:POKEI,A:NEXTI
  9. 56 DATA133,95,134,96,76,191,163
  10. 60 REM +++ AUFWAERTS VERSCHIEBEN +++
  11. 62 FORI=0TO300:NEXTI
  12. 64 PRINTCHR$(17)CHR$(17)"WIR VERSCHIEBEN JETZT!"
  13. 66 FORI=0TO300:NEXTI
  14. 70 QS=1025:QE=1064:REM QUELLE START UND QUELLE ENDE+1
  15. 80 ZE=1065:REM ZIEL ENDE+1
  16. 90 A=INT(QS/256):POKE781,A:POKE780,QS-256*A
  17. 100 A=INT(QE/256):POKE91,A:POKE90,QE-256*A
  18. 110 A=INT(ZE/256):POKE89,A:POKE88,ZE-256*A
  19. 120 SYS49152
  20. 130 PRINTCHR$(17)CHR$(17)"DAS WAR UM 1 AUFWAERTS":PRINT"BITTE TASTE DRUECKEN"
  21. 140 GETA$:IFA$=""THEN140
  22. 150 REM +++ ABWAERTS VERSCHIEBEN +++
  23. 152 FORI=0TO300:NEXTI
  24. 154 PRINTCHR$(17)CHR$(17)"JETZT VERSCHIEBEN WIR ABWAERTS!"
  25. 156 FORI=0TO300:NEXTI
  26. 160 QS=1025:QE=1064:REM QUELLE START UND QUELLE ENDE+1
  27. 170 ZE=1063:REM ZIEL ENDE+1
  28. 180 A=INT(QS/256):POKE781,A:POKE780,QS-256*A
  29. 190 A=INT(QE/256):POKE91,A:POKE90,QE-256*A
  30. 200 A=INT(ZE/256):POKE89,A:POKE88,ZE-256*A
  31. 210 SYS49152
  32. 220 PRINTCHR$(17)CHR$(17)"DA SEHEN SIE DAS PROBLEM":PRINT"DER BLTUC-ROUTINE"
  33.